home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / PAS_0693 / CSTRTEST.PAS < prev    next >
Pascal/Delphi Source File  |  1993-06-30  |  844b  |  29 lines
  1. {─ Fido Pascal Conference ────────────────────────────────────────────── PASCAL ─
  2. Msg  : 403 of 413
  3. From : Todd Holmes                         1:152/5.0            25 Jun 93  10:25
  4. To   : All
  5. Subj : CStr Demo
  6. ────────────────────────────────────────────────────────────────────────────────}
  7. Program CstrTest;  {_Tested !!}
  8. {Demostrates the use of CStr.Pas}
  9.  
  10. Uses Objects,Cstr;
  11.  
  12.  
  13. Var
  14.    Stream: TBufStream;
  15.    I: integer;
  16.    PS: String;
  17. begin
  18.   Stream.Init('Text.txt',stCreate,1024);
  19.   For I := 1 to 1000 do begin
  20.     Str(I,PS);   {Converts Integer to String}
  21.     StorePstr(Stream,PS); {Stores Pas string on the stream as a C String}
  22.    end;
  23.  Stream.Done; {Shuts down the stream}
  24.  Stream.Init('Test.Txt',stOpenRead,1024);
  25.  Repeat
  26.    Writeln(LoadPStr(Stream));
  27.  Until Stream.GetPos = Stream.GetSize;
  28.  Stream.Done;
  29. end.